10 REM *** SCREEN SLEUTH *** BUCK CHILDRESS (02/12/86) ***
20 REM *** P.O. BOX 13575 SALEM, OR 97309 ***
25 POKE53280,6:POKE53281,0:POKE646,3
30 PRINTCHR$(147)"LOADING AND CHECKING DATA...":PRINT:J=49152:L=90:C=11
40 FORB=0TOC:READA:POKEJ+B,A:X=X+A:NEXTB:READA
50 IFX<>ATHENPRINT"ERROR IN DATA LINE"L:END
60 X=0:J=J+12:L=L+10:IFL<460THEN40
70 IFL=460THENC=13:GOTO40
80 PRINT"DATA OK AND LOADED...":PRINT:PRINT"SYS 49152 TO ACTIVATE..."
85 PRINT"   PLACE CURSOR OVER ANY CHAR. ON THE   SCREEN, AND HIT RUN/STOP KEY."
86 PRINT"   SEE JULY ISSUE OF AHOY! FOR MORE     DETAILS..."
90 DATA173,20,3,174,21,3,224,192,240,30,141,208,1429
100 DATA193,142,209,193,169,41,162,192,120,141,20,3,1585
110 DATA142,21,3,142,215,193,142,216,193,142,219,193,1821
120 DATA142,220,193,88,96,173,220,193,201,127,240,68,1961
130 DATA173,215,193,201,127,208,48,133,204,173,141,2,1818
140 DATA208,8,32,159,255,32,228,255,240,46,169,127,1759
150 DATA141,220,193,160,39,140,215,193,185,224,193,153,2056
160 DATA0,4,185,16,194,153,0,216,136,16,241,32,1193
170 DATA225,255,240,251,76,146,193,165,207,208,9,165,2140
180 DATA145,201,127,208,6,141,219,193,108,208,193,173,1922
190 DATA219,193,201,127,208,246,141,215,193,141,220,193,2297
200 DATA165,206,174,135,2,141,217,193,201,32,208,3,1677
210 DATA174,33,208,142,218,193,169,0,162,4,133,251,1687
220 DATA133,252,134,253,165,211,208,4,165,214,240,16,1995
230 DATA169,157,133,204,32,210,255,230,251,208,237,230,2316
240 DATA252,76,160,192,160,39,132,204,185,0,4,153,1557
250 DATA224,193,185,0,216,41,15,153,16,194,136,16,1389
260 DATA239,173,134,2,141,212,193,173,33,208,41,15,1564
270 DATA141,134,2,160,39,169,32,153,0,4,136,16,986
280 DATA250,200,132,199,133,254,32,210,255,173,0,4,1842
290 DATA205,217,193,240,57,169,20,32,210,255,230,254,2082
300 DATA165,254,201,128,144,232,201,160,176,5,169,160,1995
310 DATA76,232,192,201,192,144,219,169,18,205,216,193,2057
320 DATA240,10,141,216,193,133,199,169,32,76,232,192,1833
330 DATA32,179,193,32,168,193,169,63,32,210,255,76,1602
340 DATA68,193,32,179,193,169,0,166,254,32,160,193,1639
350 DATA173,216,193,201,18,208,5,169,42,32,210,255,1722
360 DATA169,0,174,217,193,32,160,193,173,218,193,41,1763
370 DATA15,170,169,0,32,160,193,32,94,193,169,216,1443
380 DATA133,253,166,251,165,252,24,101,253,32,160,193,1983
390 DATA165,253,48,1,96,32,197,193,173,212,193,141,1704
400 DATA134,2,165,251,208,4,165,252,240,20,169,29,1639
410 DATA133,204,32,210,255,198,251,165,251,201,255,208,2363
420 DATA233,198,252,76,118,193,169,192,141,216,193,141,2122
430 DATA219,193,141,220,193,108,208,193,72,32,168,193,1940
440 DATA104,76,205,189,169,32,160,2,32,210,255,136,1570
450 DATA16,250,96,162,0,173,33,208,41,15,208,1,1203
460 DATA232,142,134,2,169,13,32,210,255,169,19,76,210,255,1918